Designer's Club 1997 September/Designer's Club 1997 September.iso/pc/IDEASRC/Main.DIR/00001.ls

Text File | 1997-08-01 | 618 b | 34 lines

on exitFrame
  go(the frame)
  cursor(200)
  set the locH of sprite 10 to the mouseH
  set the locV of sprite 10 to the mouseV
  if sprite 10 intersects 2 then
    go("atyou")
  end if
end

on keyDown
  if the key = 1 then
    set the soundLevel to 1
  end if
  if the key = 2 then
    set the soundLevel to 2
  end if
  if the key = 3 then
    set the soundLevel to 3
  end if
  if the key = 4 then
    set the soundLevel to 4
  end if
  if the key = 5 then
    set the soundLevel to 5
  end if
  if the key = 6 then
    set the soundLevel to 6
  end if
  if the key = 7 then
    set the soundLevel to 7
  end if
end